home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exampl_4 / keycode.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-14  |  738 b   |  30 lines
  1. Attribute VB_Name = "modKEYCODE"
  2. Option Explicit
  3.  
  4. 'KeyDown values (Scancode values in Decimal(Windows))
  5. Global Const SPACE_BAR = 32
  6. Global Const CURSOR_LEFT = 37
  7. Global Const CURSOR_RIGHT = 39
  8. Global Const CURSOR_UP = 38
  9. Global Const CURSOR_DOWN = 40
  10.  
  11. 'Key flags
  12. Global Const SPACE_BAR_FLAG = 1
  13. Global Const CURSOR_LEFT_FLAG = 2
  14. Global Const CURSOR_RIGHT_FLAG = 4
  15. Global Const CURSOR_UP_FLAG = 8
  16. Global Const CURSOR_DOWN_FLAG = 16
  17.  
  18. 'Global used to track keys
  19. Global giKeyState As Integer
  20.  
  21. Function iCheckKey(riKeyFlag As Integer)
  22.  
  23. 'Check if a given key is currently pressed
  24. 'riKeyFlag - key identifier
  25. 'True if key is pressed
  26.  
  27. 'Test the flag for required key
  28. iCheckKey = giKeyState And riKeyFlag
  29. End Function
  30.